;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 2/8/2012
;;;		   EDITED: 2/8/2012
;;;
(defun c:ncmap ()
  (if ukword nil (load "ukword" "\nFile UKWORD.LSP not loaded! "))
  (setq map-type (ukword 1 "Real Cover" "Which scale [Real (approx.) / Cover]" (if map-type map-type "Cover")))
  (cond ((eq map-type "Cover")
	 (if upoint nil (load "upoint" "\nFile UPOINT.LSP not loaded! "))
	 (setq this-inspt (upoint 1 "" "Pick lower left corner for insertion" nil nil))
	 (command ".-insert" "NC-location-map" this-inspt 1.0 1.0 0.0)
	 )
	((eq map-type "Real")
	 (command ".-insert" "NC-location-map" '(393485.0 -223614.0) 5500.0 5500.0 2.0987)
	 )
  )
  (princ)
)